home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / reader_requests / wild / support / algo_pyramidalcolortree.bas < prev    next >
BASIC Source File  |  2000-02-23  |  229b  |  16 lines
  1.  
  2. '$INCLUDE BASU:_LoadPalette.bas
  3. '$INCLUDE BASU:_DoHSL.bas
  4.  
  5. SCREEN 1,640,256,8,2
  6. WINDOW 1,"Pyramidal Color Tree",,,1
  7.  
  8. CALL LoadPalette("PyperWorks:MyProducts/Escape/Levels/BackGrounds/Various1.rgb32",1)
  9. CALL DoHSL
  10.  
  11.  
  12. DIM TreeY
  13.  
  14.  
  15.  
  16.